home *** CD-ROM | disk | FTP | other *** search
/ Remax Data / Remax Porfolio Data 15 Jul 1994 CD-ROM.ISO / fp26_rmx / state.spr < prev    next >
Encoding:
Text File  |  1994-07-10  |  5.5 KB  |  195 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 07/10/94              STATE.SPR                14:40:32 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Author's Name                                           
  8. *       *                                                         
  9. *       * Copyright (c) 1994 Company Name                         
  10. *       * Address                                                 
  11. *       * City,     Zip                                           
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18.  
  19. #REGION 0
  20. REGIONAL m.currarea, m.talkstat, m.compstat
  21.  
  22. IF SET("TALK") = "ON"
  23.     SET TALK OFF
  24.     m.talkstat = "ON"
  25. ELSE
  26.     m.talkstat = "OFF"
  27. ENDIF
  28. m.compstat = SET("COMPATIBLE")
  29. SET COMPATIBLE FOXPLUS
  30.  
  31. m.rborder = SET("READBORDER")
  32. SET READBORDER ON
  33.  
  34. m.currarea = SELECT()
  35.  
  36.  
  37. *       *********************************************************
  38. *       *                                                         
  39. *       *       STATE/Windows Databases, Indexes, Relations       
  40. *       *                                                         
  41. *       *********************************************************
  42. *
  43.  
  44. IF USED("roster")
  45.     SELECT roster
  46.     SET ORDER TO 0
  47. ELSE
  48.     SELECT 0
  49.     USE (LOCFILE("roster.dbf","DBF","Where is roster?"));
  50.         AGAIN ALIAS roster ;
  51.         ORDER 0
  52. ENDIF
  53.  
  54. IF USED("state")
  55.     SELECT state
  56.     SET ORDER TO 0
  57. ELSE
  58.     SELECT 0
  59.     USE (LOCFILE("state.dbf","DBF","Where is state?"));
  60.         AGAIN ALIAS state ;
  61.         ORDER 0
  62. ENDIF
  63.  
  64. IF USED("temp")
  65.     SELECT temp
  66.     SET ORDER TO 0
  67. ELSE
  68.     SELECT 0
  69.     USE (LOCFILE("temp.dbf","DBF","Where is temp?"));
  70.         AGAIN ALIAS temp ;
  71.         ORDER 0
  72. ENDIF
  73.  
  74. SELECT state
  75.  
  76.  
  77. *       *********************************************************
  78. *       *                                                         
  79. *       *               Windows Window definitions                
  80. *       *                                                         
  81. *       *********************************************************
  82. *
  83.  
  84. IF NOT WEXIST("state") ;
  85.     OR UPPER(WTITLE("STATE")) == "STATE.PJX" ;
  86.     OR UPPER(WTITLE("STATE")) == "STATE.SCX" ;
  87.     OR UPPER(WTITLE("STATE")) == "STATE.MNX" ;
  88.     OR UPPER(WTITLE("STATE")) == "STATE.PRG" ;
  89.     OR UPPER(WTITLE("STATE")) == "STATE.FRX" ;
  90.     OR UPPER(WTITLE("STATE")) == "STATE.QPR"
  91.     DEFINE WINDOW state ;
  92.         AT 4.417, 45.375 ;
  93.         SIZE 18.769,29.400 ;
  94.         TITLE "States" ;
  95.         FONT "MS Sans Serif", 8 ;
  96.         FLOAT ;
  97.         CLOSE ;
  98.         MINIMIZE ;
  99.         SYSTEM
  100. ENDIF
  101.  
  102.  
  103. #REGION 1
  104. DEFINE POPUP _qrl0vge2b ;
  105.     PROMPT FIELD State.state_prov ;
  106.     SCROLL
  107.  
  108. *       *********************************************************
  109. *       *                                                         
  110. *       *               STATE/Windows Screen Layout               
  111. *       *                                                         
  112. *       *********************************************************
  113. *
  114.  
  115. #REGION 1
  116. IF WVISIBLE("state")
  117.     ACTIVATE WINDOW state SAME
  118. ELSE
  119.     ACTIVATE WINDOW state NOSHOW
  120. ENDIF
  121. @ 0.077,0.200 GET M.StateSlct ;
  122.      PICTURE "@&N" ;
  123.     POPUP _qrl0vge2b ;
  124.     SIZE 18.462,28.600 ;
  125.     DEFAULT " " ;
  126.     FONT "MS Sans Serif", 8 ;
  127.     STYLE "" ;
  128.     VALID _qrl0vge8l()
  129.  
  130. IF NOT WVISIBLE("state")
  131.     ACTIVATE WINDOW state
  132. ENDIF
  133.  
  134. READ CYCLE ;
  135.     DEACTIVATE .T.
  136.  
  137. RELEASE WINDOW state
  138.  
  139. *       *********************************************************
  140. *       *                                                         
  141. *       *                Windows Closing Databases                
  142. *       *                                                         
  143. *       *********************************************************
  144. *
  145.  
  146. IF USED("roster")
  147.     SELECT roster
  148.     USE
  149. ENDIF
  150.  
  151. IF USED("state")
  152.     SELECT state
  153.     USE
  154. ENDIF
  155.  
  156. IF USED("temp")
  157.     SELECT temp
  158.     USE
  159. ENDIF
  160.  
  161. SELECT (m.currarea)
  162.  
  163. RELEASE POPUPS _qrl0vge2b
  164.  
  165. #REGION 0
  166.  
  167. SET READBORDER &rborder
  168.  
  169. IF m.talkstat = "ON"
  170.     SET TALK ON
  171. ENDIF
  172. IF m.compstat = "ON"
  173.     SET COMPATIBLE ON
  174. ENDIF
  175.  
  176.  
  177. *       *********************************************************
  178. *       *                                                         
  179. *       * _QRL0VGE8L           M.StateSlct VALID                  
  180. *       *                                                         
  181. *       * Function Origin:                                        
  182. *       *                                                         
  183. *       * From Platform:       Windows                            
  184. *       * From Screen:         STATE,     Record Number:    5     
  185. *       * Variable:            M.StateSlct                        
  186. *       * Called By:           VALID Clause                       
  187. *       * Object Type:         List                               
  188. *       * Snippet Number:      1                                  
  189. *       *                                                         
  190. *       *********************************************************
  191. *
  192. FUNCTION _qrl0vge8l     &&  M.StateSlct VALID
  193. #REGION 1
  194. M.SState = M.StateSlct
  195. CLEAR READ